#!/usr/bin/perl

#use Getopt::Std;
#getopts("d:",\%options);
#my $kw="icf";
#$kw=$options{d} if defined $options{d};

my $fft_size=256;
my $max_iters=17280;
my @num_ffts=(1,2,4,8,16,32,64,135,270,540);

my $program="bin/fft_bench";
#my $poe_opt="-llfile mpi.ll";
foreach my $a (@num_ffts)
{
  my $niters=$max_iters/$a;
  #printf "%d %d\n",$a,$niters;
  system("$program --s $fft_size  --n $a --i $niters $poeopts");
}
